home *** CD-ROM | disk | FTP | other *** search
/ A Million Times Begging / A Million Times Begging - Disc 2.iso / pc / data / photo2.dir / 00001.ls next >
Encoding:
Text File  |  1998-05-20  |  588 b   |  23 lines
  1. on exitFrame
  2.   global endnum, irukap
  3.   puppetSprite(1, 0)
  4.   puppetSprite(104, 1)
  5.   repeat with i = 3 to 102
  6.     set the visible of sprite i to 0
  7.   end repeat
  8.   repeat with i = 106 to 108
  9.     set the visible of sprite i to 0
  10.   end repeat
  11.   updateStage()
  12.   repeat with i = 3 to 102
  13.     puppetSprite(i, 1)
  14.     set the castLibNum of sprite i to the number of castLib "PhotoS"
  15.   end repeat
  16.   repeat with i = 3 to endnum + 2
  17.     set the visible of sprite i to 1
  18.     set str to "S" & getAt(irukap, i - 2)
  19.     set the member of sprite i to the name of member str
  20.   end repeat
  21.   updateStage()
  22. end
  23.